perm filename IN4[P11,LCS] blob
sn#341668 filedate 1978-03-11 generic text, type T, neo UTF8
PRECEDE;
SRT←12800;
INS 0 1; < INSTRUMENT 1
OSC P4 P13 B2 F1 P30;
SET P5;
OSC B2 P3 B2 F2 P29;
OUT B2 B1;END; < ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!
GEN 0 1 1 .01 0 .99 25
.99 400 0 511;<GEN INPUT MUST ALWAYS START NEW LINE!00101500
GEN 0 2 2 1 0 .2 .04 4;
GEN 0 2 3 1 1 0 .24 .3 5;
GEN 0 1 4, -.99 0 .99 255,-.99 511; <TRIANGLE
INSTRUMENTS;
BUZZ 1 13 FREQ 3
END;
*
BUZZ 0 0 25; INSTRUMENT 1=BUZZ, BEGIN TIME=0
P2 .15;
P3 A4;
P12 SUBR 24/P11 NUM/0/1/2/3/4/5/6/7/8/9/10/11/12/
13/14/15/16/17/18/19/20/21/22/23/24;
P5 NUM/3/4/2; <THESE ARE FUNC. NUMS.
P4 1000;END;
BUZZ 1 25;
P2 .5;END;